home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 5 / The 640 Meg Shareware Studio CD-ROM Volume V (Data Express)(1994).ISO / amiga / tempdemo.lha / Rexx / PN-UserInfo.rexx < prev    next >
OS/2 REXX Batch file  |  1994-05-22  |  25KB  |  495 lines
  1. /*
  2.                       _____
  3.                      /      __  _ _   __  __    __  _  __  ____
  4.                      \     /  _/  \  /   /     /   /  /   / __
  5.                    ___\   /        \    / __  /   /      / __
  6.                   /      /  \      /   /     /   /  \   /
  7. ______________________________________________________________________________
  8.  
  9.      Level/UserInfo, ⌐ 1993/94 by Casa Nova, Sysop of Skyline BBS Berlin.
  10.      It was written for TempestBBS, higher than v1.4u. Started: 07-31-93
  11.  
  12.      Insert to your Optionals [*,*,*,*,*] = Y |REXX|TempRexx:PN-UserInfo.rexx
  13.  
  14.  
  15. ______________________________________________________________________________   */
  16.  
  17. /*TRACE RESULTS*/                /*----------------------*/
  18. OPTIONS RESULTS                                 /*----------------------*/
  19. ARG BBS_NODE                                    /* Grab the Node Number */
  20. Address value 'TempRexx-'BBS_NODE               /* Tell Arexx # of NODE  /
  21. ------------------------------------------------------------------------*/
  22. VERS = '1.4'                                /* DON'T CHANGE!      /
  23. ------------------------------------------------------------------------*/
  24. PROGRAMNAME = 'UserInfo'            /* DON'T CHANGE!     /
  25. ------------------------------------------------------------------------*/
  26. V_DATE = '02-09-94'                             /* DON'T CHANGE!         /
  27. ------------------------------------------------------------------------*/
  28. Bufferflush                                     /*                      */
  29. signal ON ERROR                                 /*                      */
  30. signal ON HALT                                  /*                      */
  31. signal ON SYNTAX                                /*                      */
  32. signal ON FAILURE                               /*                      */
  33. signal ON IOERR                                 /*                      */
  34.                                                 /*----------------------*/
  35. 'Getvar' 43                                     /* UserName             */
  36. RUName = (result)                               /* Name UPPER-CASE      */
  37.                                                 /*----------------------*/
  38. 'Getvar' 0                                  /* Path where the BBS is*/
  39. BBS    = (result)                              /* located              */
  40.                                                 /*----------------------*/
  41. 'BBSIDENTIFY ANSI'                              /* Ansi on/off?         */
  42. gfx = (result)                                  /*                      */
  43.                                                 /*----------------------*/
  44. 'Getvar' 1                                      /* Path to the Accounts:*/
  45. SAF    = (result)                               /*                      */
  46.                                                 /*----------------------*/
  47. 'Getvar' 4                                      /* Path to the Text: Dir*/
  48. STF    = (result)                               /*                      */
  49.                                                 /*----------------------*/
  50. 'Getvar' 9                                      /*                      */
  51. SAF    = (result)                    /* Accounts: Directory  */
  52.                                                 /*----------------------*/
  53. 'Getvar' 16                                     /*                      */
  54. DATE   = (result)                    /* DATE            */
  55.                                                 /*----------------------*/
  56. 'Getvar' 17                                     /*                      */
  57. TIM    = (result)                    /* TIME            */
  58.                                                 /*----------------------*/
  59. 'Getvar' 18                                     /* Name of the BBS         */
  60. SYSTEM = (result)                               /* (don't change!)         */
  61.                                                 /*----------------------*/
  62. 'Getvar' 19                                     /*                      */
  63. Baud   = (result)                    /* Baud Rate of User    */
  64.                                                 /*----------------------*/
  65. 'Getvar' 30                                     /*                      */
  66. LDB    = (result)                    /* Daily DL byte Limit  */
  67.                                                 /*----------------------*/
  68. 'Getvar' 31                                     /*                      */
  69. UCL    = (result)                    /* Call Limit / Day     */
  70.                                                 /*----------------------*/
  71. 'Getvar' 32                                     /*                      */
  72. UCT    = (result)                    /* Users Calls today    */
  73.                                                 /*----------------------*/
  74. 'Getvar' 33                                     /*                      */
  75. UTC    = (result)                    /* Total calls system   */
  76.                                                 /*----------------------*/
  77. 'Getvar' 34                                     /*                      */
  78. DF     = (result)                    /* DL Files         */
  79.                                                 /*----------------------*/
  80. 'Getvar' 35                                     /*                      */
  81. UF     = (result)                    /* Uploaded Files    */
  82.                                                 /*----------------------*/
  83. 'Getvar' 37                                     /*                      */
  84. TL     = (result)                    /* Daily Time Limit    */
  85.                                                 /*----------------------*/
  86. 'Getvar' 39                                     /*                      */
  87. TR     = (result)                    /* Remaining Time      */
  88.                                                 /*----------------------*/
  89. 'Getvar' 43                                     /*                      */
  90. UName  = (result)                     /* User whos ONLINE    */
  91.                                                 /*----------------------*/
  92. 'Getvar' 44                                     /*                      */
  93. LO     = (result)                     /* User`s LOCATION    */
  94.                                                 /*----------------------*/
  95. 'Getvar' 70                                     /*                      */
  96. RN     = (result)                    /* Real Name            */
  97.                                                 /*----------------------*/
  98. 'Getvar' 71                                     /*                      */
  99. PASS   = (result)                    /* User`s Password      */
  100.                                                 /*----------------------*/
  101. 'Getvar' 72                                     /*                      */
  102. PN     = (result)                    /* Phone Number         */
  103.                                                 /*----------------------*/
  104. 'Getvar' 73                                     /*                      */
  105. CT     = (result)                     /* User's Computer-Type    */
  106.                                                 /*----------------------*/
  107. 'Getvar' 74                                     /*                      */
  108. FR     = (result)                     /* File Ratio        */
  109.                                                 /*----------------------*/
  110. 'Getvar' 75                                     /*                      */
  111. FB     = (result)                     /* Byte Ratio        */
  112.                                                 /*----------------------*/
  113. 'Getvar' 76                                     /*                      */
  114. DB     = (result)                     /* DL Bytes since day 1 */
  115.                                                 /*----------------------*/
  116. 'Getvar' 77                                     /*                      */
  117. UB     = (result)                     /* Uploaded Bytes    */
  118.                                                 /*----------------------*/
  119. 'Getvar' 78                                     /*                      */
  120. LDF    = (result)                     /* Daily DL File limit    */
  121.                                                 /*----------------------*/
  122. 'Getvar' 92                                     /*                      */
  123. UMT    = (result)                    /* MSG left today       */
  124.                                                 /*----------------------*/
  125. 'Getvar' 82                                     /*                      */
  126. DFT    = (result)                    /* DL Files today       */
  127.                                                 /*----------------------*/
  128. 'Getvar' 83                                     /*                      */
  129. DBT    = (result)                    /* DL Bytes today       */
  130.                                                 /*----------------------*/
  131. 'Getvar' 84                                     /*                      */
  132. UFT    = (result)                    /* UL Files today       */
  133.                                                 /*----------------------*/
  134. 'Getvar' 85                                     /*                      */
  135. UBT    = (result)                    /* UL Bytes today       */
  136.                                                 /*----------------------*/
  137. 'Getvar' 86                                     /*                      */
  138. DFL    = (result)                    /* DL allowed files left*/
  139.                                                 /*----------------------*/
  140. 'Getvar' 87                                     /*                      */
  141. DBL    = (result)                    /* DL allowed Bytes left*/
  142.                                                 /*----------------------*/
  143. 'Getvar' 93                                     /*                      */
  144. UML    = (result)                    /* MSG allowed / day    */
  145.                                                 /*----------------------*/
  146. 'Getvar' 94                                     /*                      */
  147. TCT    = (result)                    /* Calls Today          */
  148.                                                 /*----------------------*/
  149. 'Getvar' 109                                    /*                      */
  150. LEV    = (result)                               /* User Level           */
  151.                                                 /*----------------------*/
  152. 'Getvar' 126                                    /*                      */
  153. UMF    = (result)                               /* User's MSG flags     */
  154.                                                 /*----------------------*/
  155. 'Getvar' 127                                    /*                      */
  156. UFF    = (result)                               /* User's File flags    */
  157.                                                 /*----------------------*/
  158. 'Getvar' 128                                    /*                      */
  159. UOP    = (result)                               /* User's Option flags  */
  160.                                                 /*----------------------*/
  161. 'Getvar' 131                                    /*                      */
  162. FCL    = (result)                    /* Users First Call     */
  163.                                                 /*----------------------*/
  164. 'Getvar' 132                                    /*                      */
  165. LCL    = (result)                    /* Users Last Call      */
  166.                                                 /*----------------------*/
  167. 'Getvar' 133                                    /*                      */
  168. PWF    = (result)                    /* Password Failures    */
  169.                                                 /*----------------------*/
  170. 'Getvar' 208                                    /*                      */
  171. SN     = (result)                               /* UserSlotNumber(User#)*/
  172.                                                 /*----------------------*/
  173.                                        /*                      */
  174. file7=SAF'FlaggedFiles/FF-'SN              /*                      */
  175.                                                 /*----------------------*/
  176.  
  177.  
  178.  
  179. /*    *********** NOT DEFINED NOW, PLEASE INCL. THE CODES ************
  180.  
  181.                                                 /*----------------------*/
  182. 'Getvar' ???                                    /*                      */
  183. UTG    = (result)                    /* Upload Time Gained   */
  184.                                                 /*----------------------*/
  185. 'Getvar' ???                                    /*                      */
  186. UBD    = (result)                    /* Users Birthday       */
  187.                                                 /*----------------------*/
  188. 'Getvar' ???                                    /*                      */
  189. LON    = (result)                    /* Last on Node         */
  190.                                                 /*----------------------*/
  191. 'Getvar' ???                                    /*                      */
  192. VIEW   = (result)                    /* Filelist Viewmode #  */
  193.                                                 /*----------------------*/
  194. 'Getvar' ???                                    /*                      */
  195. APU    = (result)                    /* Add % of UL time     */
  196.                                                 /*----------------------*/
  197. 'Getvar' ???                                    /*                      */
  198. TB     = (result)                    /* Mins stored:Timebank */
  199.                                                 /*----------------------*/
  200. */
  201.  
  202.  
  203.  
  204. /*----------------------------------------------------------------------*/
  205. BIRTH='00-00-00'    /* Birthday              Not defined in Tempest */
  206. VIEW ='-'           /* View-Mode        \    Arexx now!             */
  207. LON  ='-'           /* Last on Node      \                          */
  208. UTG  ='--'          /* Time / UL Tdy.     >  Remove this lines when */
  209. APU  ='50'          /* Add Time/UL(50%)  /   incl. and define them  */
  210. TB   ='--'          /* Timebank         /    in the upper line!     */
  211.  
  212. /************************************************************************/
  213. /***  C H A N G E   T H I S  (if you like)  *****************************/
  214. /************************************************************************/
  215.                                                 /* Change to YOUR favor.*/
  216. DISPLAY = 1                               /* Display-Mode: 1 or 2 */
  217.                                     /*                      */
  218. /************************************************************************/
  219.  
  220. /*address command 'setenv NODE-'BBS_NODE' 'BBS_NODE'' /* No InterNode-MSGs*/*/
  221.  
  222. file0 = 'NODE:DOOR_'BBS_NODE            /* Create NODE:DOOR_#   */
  223. OPEN(fn0,file0,'W')                /* Create NODE:DOOR_#   */
  224. Writeln(fn0,'UserInfo   ')            /* Create NODE:DOOR_#   */
  225. CLOSE(fn0)                               /* Create NODE:DOOR_#   */
  226.  
  227. FLA = 'Yes'                    /* Flagged Files       */
  228. file7='BBS:Accounts/FlaggedFiles/FF-'SN      /*                      */
  229. IF ~exists(file7) THEN DO                       /*                      */
  230.    FLA='No'                                /*                      */
  231. END                                    /*                      */
  232.  
  233.  l=E
  234.  A.29 = 'English'
  235.  A.30 = 'Tempest'
  236.  
  237. SYS = 'Ok'                                /* User access         */
  238. IF LEV = 255 THEN DO                            /* Level 255 ?         */
  239.    SYS = '<Sysop>'                              /* then Sysop access    */
  240. END                                             /*              */
  241.  
  242. START:
  243. /*---------------------------------------------------------*/
  244. 'Getvar' 74                                 /*                      */
  245. FR = (result)                         /* File Ratio        */
  246.                                             /*----------------------*/
  247. 'Getvar' 75                                 /*                      */
  248. FB = (result)                         /* Byte Ratio        */
  249.  
  250. USER_STATS:
  251. IF FR>0 THEN DO
  252. FR='1:'FR
  253. END
  254. IF FB>0 THEN DO
  255. FB='1:'FB
  256. END
  257.  
  258. IF FR=0 THEN DO
  259. FR='off'
  260. END
  261. IF FB=0 THEN DO
  262. FB='off'
  263. END
  264.  
  265.  
  266. file4 = 'ENV:NODE-'BBS_NODE              /* Directory of NODE:   */
  267. IF exists(file4) THEN DO
  268.    ENV='No'
  269. END
  270. IF ~exists(file4) THEN DO
  271.    ENV='Yes'
  272. END
  273.  
  274. m=0
  275. f=0
  276. z=0
  277. ACC.1 =' ' ; AC.1 =' ' ; Ax.1 =' '
  278. ACC.2 =' ' ; AC.2 =' ' ; Ax.2 =' '
  279. ACC.3 =' ' ; AC.3 =' ' ; Ax.3 =' '
  280. ACC.4 =' ' ; AC.4 =' ' ; Ax.4 =' '
  281. ACC.5 =' ' ; AC.5 =' ' ; Ax.5 =' '
  282.  
  283. DO z = 1 TO 23
  284.     FLAG = SUBSTR(''UMF'',z,1,)        /* This one checks if User has  */
  285.     IF FLAG=Y THEN DO                /* Option flags set to "Yes"    */
  286.     m = m+1
  287.     a=1
  288.     AC.a  = 'Access'
  289.     Ax.a = '.:'
  290.     ACC.a = 'Messages'
  291.     END
  292.     IF FLAG=S THEN DO                /* Option flags set to "Yes"    */
  293.     m = m+1
  294.     a=1
  295.     AC.a = 'Access'
  296.     Ax.a = '.:'
  297.     ACC.a = 'Messages'
  298.     END
  299. END z
  300.  
  301. DO z = 1 TO 23
  302.     FLAG = SUBSTR(''UFF'',z,1,)        /* This one checks if User has  */
  303.     IF FLAG=Y THEN DO                /* Option flags set to "Yes"    */
  304.     f = f+1
  305.     ACCf=1
  306.     END
  307.     IF FLAG=S THEN DO                /* Option flags set to "Yes"    */
  308.     f = f+1
  309.     ACCf=1
  310.     END
  311. END z
  312. IF ACCf = 1 THEN DO
  313.     a=a+1
  314.     AC.a = 'Access'
  315.     Ax.a = '.:'
  316.     ACC.a = 'Files'
  317. END
  318.  
  319.  
  320.     BULL='No'
  321.     VOTE='No'
  322.     DOOR='No'
  323.     FILE='No'
  324.  
  325.     BULL = SUBSTR(''UOP'',13,1,)    /* This one checks if User has  */
  326.     IF BULL=Y THEN DO                /* Option flag #12 set to "Yes" */
  327.     BULL ='Yes'
  328.     a=a+1
  329.     AC.a = 'Access'
  330.     Ax.a = '.:'
  331.     ACC.a = 'Bulletins'
  332.     END
  333.  
  334.     VOTE = SUBSTR(''UOP'',15,1,)    /* This one checks if User has  */
  335.     IF VOTE=Y THEN DO                /* Option flag #14 set to "Yes" */
  336.     VOTE ='Yes'
  337.     a=a+1
  338.     AC.a = 'Access'
  339.     Ax.a = '.:'
  340.     ACC.a = 'Voting'
  341.     END
  342.  
  343.     DOOR = SUBSTR(''UOP'',16,1,)    /* This one checks if User has  */
  344.     IF DOOR=Y THEN DO                /* Option flag #15 set to "Yes" */
  345.     DOOR ='Yes'
  346.     a=a+1
  347.     AC.a = 'Access'
  348.     Ax.a = '.:'
  349.     ACC.a = 'Doors'
  350.     END
  351.  
  352.     REL = SUBSTR(''UOP'',35,1,)        /* This one checks if User has  */
  353.     IF REL=Y THEN DO                /* Option flag #34 set to "Yes" */
  354.     REL ='Yes'
  355.     END
  356.     IF REL=N THEN DO                /* Option flag #34 set to "Yes" */
  357.     REL ='No'
  358.     END
  359.  
  360. /*
  361.     SYS = SUBSTR(''UOP'',38,1,)            /* This one checks if User has  */
  362.     IF SYS=Y THEN DO                /* Option flag #37 set to "Yes" */
  363.     SYS='F-SYSOP'
  364.     END
  365. */
  366.  
  367. IF F>0 THEN DO
  368.  FILE='Yes'
  369. END
  370.  
  371. IF F=S THEN DO
  372.  FILE='Yes'
  373. END
  374.  
  375. IF M>0 THEN DO
  376.  MSG='Yes'
  377. END
  378.  
  379. IF GFX = '0' THEN DO
  380. GFX = 'Off'
  381. END
  382. IF GFX = '1' THEN DO
  383. GFX = 'On'
  384. END
  385.  
  386. CLS
  387. IF DISPLAY = 1 THEN DO
  388. MESSAGE
  389. MESSAGE ' 'system'  'PROGRAMNAME' 'VERS' 'copies(' ',23-length(system))''copies(' ',15-length(PROGRAMNAME))' Designed by Casa Nova ['V_DATE'] '
  390. MESSAGE ''COPIES('-',80)''
  391. MESSAGE 'Username..: 'LEFT(''Uname'',52)'  Date: 'DATE
  392. MESSAGE 'Location..: 'LEFT(''LO'',52)'  Time: 'TIM
  393. MESSAGE ''COPIES('-',80)''
  394. MESSAGE 'Computer..: 'LEFT(''CT'',14)' Calls/Day...: 'LEFT(''UCL'',5)' 'LEFT(''AC.1'',6)''LEFT(''Ax.1'',2) ''LEFT(''ACC.1'',9)' Logon/ID#: 'SN
  395. MESSAGE 'Phone.....: 'LEFT(''PN'',14)' Total Calls.: 'LEFT(''UTC'',5)' 'LEFT(''AC.2'',6)''LEFT(''Ax.2'',2) ''LEFT(''ACC.2'',9)' Level....: 'LEV /*'vel''SET_LEVEL*/
  396. MESSAGE 'Birthday..: 'LEFT(''BIRTH'',14)' Calls Today.: 'LEFT(''UCT'',5)' 'LEFT(''AC.3'',6)''LEFT(''Ax.3'',2) ''LEFT(''ACC.3'',9)' ViewMode.: 'VIEW
  397. MESSAGE 'Time Limit: 'LEFT(''TL' mins',14)' Messages/Day: 'LEFT(''UML'',5)' 'LEFT(''AC.4'',6)''LEFT(''Ax.4'',2) ''LEFT(''ACC.4'',9)' Remaining: 'TR
  398. MESSAGE 'Baud Rate.: 'LEFT(''BAUD'',14)' Messages Tdy: 'LEFT(''UMT'',5)' 'LEFT(''AC.5'',6)''LEFT(''Ax.5'',2) ''LEFT(''ACC.5'',9)' TimeBank.: 'TB
  399. MESSAGE 'First Call: 'LEFT(''FCL'',14)' Message Base: 'LEFT(''m'',5)'          'LEFT(''   '',9)' Re-Logon.: 'REL
  400. MESSAGE 'Last Call.: 'LEFT(''LCL'',14)' Last on Node: 'LEFT(''LON'',5)'          'LEFT(''   '',9)' Flagged..: 'FLA
  401. MESSAGE 'Language..: 'LEFT(''A.29'',14)' File Base`s.: 'LEFT(''f'',5)'          'LEFT(''   '',9)' Colors...: 'GFX
  402. MESSAGE 'Emulation.: 'LEFT(''A.30'',14)' Time/UL.Tdy.: 'LEFT(''UTG'',5)' Status.: 'LEFT(''SYS'',9)' LogInfo..: 'LEFT(''ENV'',9)''
  403. MESSAGE
  404. MESSAGE '                  Total Files/Bytes   Todays Files/Bytes                        '
  405. MESSAGE ''COPIES('-',80)
  406. MESSAGE 'Downloads.......| 'RIGHT(''DF'',5)'  'RIGHT(''DB'',10)' | 'RIGHT(''DFT'',5)'  'RIGHT(''DBT'',10)' |  File Ratio.....: 'FR
  407. MESSAGE 'Uploads.........| 'RIGHT(''UF'',5)'  'RIGHT(''UB'',10)' | 'RIGHT(''UFT'',5)'  'RIGHT(''UBT'',10)' |  Byte Ratio.....: 'FB
  408. MESSAGE 'Dl`s Downloads..| 'RIGHT(''LDF'',5)'  'RIGHT(''LDB'',10)' | 'RIGHT(''DFL'',5)'  'RIGHT(''DBL'',10)' |  Add Time per UL: 'APU'%'
  409. MESSAGE ''COPIES('-',80)''
  410. END
  411. IF DISPLAY = 2 THEN DO
  412. MESSAGE
  413. MESSAGE
  414. MESSAGE ' 'system'  'PROGRAMNAME' 'VERS' 'copies(' ',23-length(system))''copies(' ',15-length(PROGRAMNAME))' Designed by Casa Nova ['V_DATE'] '
  415. MESSAGE ''COPIES('-',80)''
  416. MESSAGE 'Username........: 'LEFT(''Uname'',46)'  Date: 'DATE
  417. MESSAGE 'Location/from...: 'LEFT(''LO'',46)'  Time: 'TIM
  418. MESSAGE ''COPIES('-',80)''
  419. MESSAGE 'Calls per Day...: 'LEFT(''UCL'',10)' Calls Today...: 'LEFT(''UCT'',15)'First Call: 'FCL
  420. MESSAGE 'Total Calls.....: 'LEFT(''UTC'',10)' Computer......: 'LEFT(''CT'',15)'Last Call.: 'LCL
  421. MESSAGE 'Messages per Day: 'LEFT(''UML'',10)' Phone.........: 'LEFT(''PN'',15)'Logon-/ID#: 'SN
  422. MESSAGE 'Messages Today..: 'LEFT(''UMT'',10)' Baud Rate.....: 'LEFT(''BAUD'',15)'Level.....: 'vel''SET_LEVEL
  423. MESSAGE 'Voting Access...: 'LEFT(''VOTE'',10)' Time Limit....: 'LEFT(''TL' mins',15)'Log-Info..: 'ENV
  424. MESSAGE 'Message Access..: 'LEFT(''MSG'',10)' Message Base`s: 'LEFT(''m'',15)'Color/Ansi: 'GFX
  425. MESSAGE 'File Access.....: 'LEFT(''FILE'',10)' File Base`s...: 'LEFT(''f'',15)'Birthday..: 00-00-00'
  426. MESSAGE 'Bulletins Access: 'LEFT(''BULL'',10)' BBS Language..: 'LEFT(''A.29'',15)'+++.......: --'
  427. MESSAGE 'Door Access.....: 'LEFT(''DOOR'',10)' BBS Emulation.: 'LEFT(''A.30'',15)'Bonus.....: --'
  428. MESSAGE
  429. MESSAGE '                  Total Files/Bytes   Todays Files/Bytes                        '
  430. MESSAGE ''COPIES('-',80)
  431. MESSAGE 'Downloads.......| 'RIGHT(''DF'',5)'  'RIGHT(''DB'',10)' | 'RIGHT(''DFT'',5)'  'RIGHT(''DBT'',10)' |   File Ratio: 'FR
  432. MESSAGE 'Uploads.........| 'RIGHT(''UF'',5)'  'RIGHT(''UB'',10)' | 'RIGHT(''UFT'',5)'  'RIGHT(''UBT'',10)' |   Byte Ratio: 'FB
  433. MESSAGE 'Dl`s Downloads..| 'RIGHT(''LDF'',5)'  'RIGHT(''LDB'',10)' | 'RIGHT(''DFL'',5)'  'RIGHT(''DBL'',10)' |   Remaining : 'TR' mins'
  434. MESSAGE ''COPIES('-',80)''
  435. END
  436. /*---------------------------------------------------------*/
  437.  
  438. DONE:
  439. DONE2:
  440. /*address command 'DELETE ENV:NODE-'BBS_NODE' 'BBS_NODE' quiet' /*InterNode-MSGs*/*/
  441. ADDRESS COMMAND 'DELETE NODE:DOOR_'BBS_NODE' quiet'     /* Kill NODE:DOOR_# Info  */
  442.  
  443. /*---------------------------------------------------------*/
  444. 'exit'
  445. exit
  446.  
  447. SYNTAX:
  448. message "**SYNTAX ERROR** in line: " SIGL " Severity: " RC errortext(RC)
  449. message "Notify Sysop Immediately!! -- Hit any key "
  450. message " "
  451. getchar
  452. 'exit'
  453. exit
  454.  
  455. ERROR:
  456. message "**IO ERROR** in line: " SIGL " Severity: " RC errortext(RC)
  457. message "Notify Sysop Immediately!! -- Hit any key "
  458. message " "
  459. getchar
  460. 'exit'
  461. exit
  462.  
  463. HALT:
  464. message "**HALT** in line: " SIGL " Severity: " RC errortext(RC)
  465. message "Notify Sysop Immediately!! -- Hit any key "
  466. message " "
  467. getchar
  468. 'exit'
  469. exit
  470.  
  471. FAILURE:
  472. message "**FAILURE** in line: " SIGL " Severity: " RC errortext(RC)
  473. message "Notify Sysop Immediately!! -- Hit any key "
  474. message " "
  475. getchar
  476. 'exit'
  477. exit
  478.  
  479. NOVALUE:
  480. message "**NOVALUE** in line: " SIGL " Severity: " RC errortext(RC)
  481. message "Notify Sysop Immediately!! -- Hit any key "
  482. message " "
  483. getchar
  484. 'exit'
  485. exit
  486.  
  487. IOERR:
  488. message "**IOERR** in 'programname' line: " SIGL " Severity: " RC errortext(RC)
  489. message "Notify Sysop Immediately!! -- Hit any key "
  490. message " "
  491. getchar
  492. 'exit'
  493. exit
  494.  
  495.